home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / CIRCLE1.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  512 b   |  18 lines
  1. 10  '******************************************
  2. 20  '**               CIRCLE                 **
  3. 30  '**                                      **
  4. 40  '**  DRAWS A CIRCLE FROM CASSETTE BASIC  **
  5. 50  '******************************************
  6. 60  '
  7. 70  CLS : KEY OFF : SCREEN 2
  8. 80  FOR X = -100 TO 100
  9. 90  Y = (10000 - X*X)^0.5 * 0.5
  10. 100  PSET (X+319,Y+100)
  11. 110  PSET (X+319,100-Y)
  12. 120  NEXT
  13. 130  FOR Y = -50 TO 50
  14. 140  X = (2500 - Y*Y)^0.5 * 2
  15. 150  PSET (319+X,100+Y)
  16. 160  PSET (319-X,100+Y)
  17. 170  NEXT
  18.